home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
003
/
dualsort.arc
/
FRAME.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-06-08
|
598b
|
17 lines
sub frame(leftcol%, rightcol%, toprow%, bottomrow%) static
locate toprow%, leftcol%: print chr$(201)
locate toprow%, rightcol%: print chr$(187)
locate bottomrow%, leftcol%: print chr$(200)
locate bottomrow%, rightcol%: print chr$(188)
for vertline% = toprow% + 1 to bottomrow% - 1
locate vertline%, leftcol%: print chr$(186)
locate vertline%, rightcol%: print chr$(186)
next vertline%
horizlength% = rightcol% -leftcol% -1
horizline$ = string$(horizlength%, 205)
locate toprow%, leftcol% +1: print horizline$
locate bottomrow%, leftcol% +1: print horizline$
end sub